home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1996 February
/
EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso
/
earcd
/
comm2
/
zpont311.lha
/
zpoint-3.11
/
Rexx
/
Headerfilter.zprx
< prev
next >
Wrap
Text File
|
1994-07-31
|
3KB
|
133 lines
/*
$VER: Headerfilter.zprx 1.1 (29.7.94) Copyright (c) Jürgen Kohrmeyer
Dies ist ein ARexx-Skript für Zodiac's Point, mit dem man auf
bequeme Weise eine Headerzeile aus der aktuellen Mail in den
Headerfilter übernehmen kann. Wenn die Headerzeile länger als 80
Zeichen ist wird ihr ein '#?' oder '*' angehängt. In der
Headerzeile vorkommende Jokerzeichen werden durch Voranstellen
eines Hochkommas ausgeschaltet. Nach erfolgreicher Übernahme in
den Filter öffnet sich das Fenster und der gerade übernommene
Eintrag ist selektiert.
Sie dürfen dieses Skript beliebig kopieren, solange es zusammen
mit Zodiac's Point eingesetzt wird, aber verändern Sie es bitte
nicht ohne Erlaubnis des Autors.
Sie erreichen den Autor wie folgt:
Jürgen Kohrmeyer Tel. : +49 5402 5195
Oststraße 2 EMail: j_kohrmeyer@wilam.north.de
49143 Bissendorf
Hinweise zur Installation:
Kopieren sie dieses Skript in das Rexx-Verzeichnis von ZP und
fügen sie danach der Datei 'fkeys.zp' auf Wunsch den Eintrag
"F1:SYS:Rexxc/RX ZPOINT:Rexx/Headerfilter.zprx %s" hinzu.
*/
/* Ergebnisse anfordern */
OPTIONS RESULTS
/* Name des Screens auslesen */
PARSE ARG screenname
ADDRESS VALUE screenname
/* Script beenden wenn wir uns nicht innerhelb eines Brettes befinden */
WHICHLEVEL
IF result ~= 'BOARD' THEN
EXIT(0)
/* Aktuelle Mail mit Header auslagern */
SAVEMESSAGEASIS 'T:Headerfilter-rexx.temp'
IF rc ~= 1 THEN
EXIT(10)
/* Testen, ob MailFilter gestartet ist. Wenn nicht, dann jetzt starten */
IF ~SHOW(PORTS,'MAILFILTER') THEN DO
ADDRESS COMMAND
'Run <>NIL: MAILFILTER:MailFilter'
DO 3 WHILE ~SHOW(PORTS,'MAILFILTER')
'WaitForPort MAILFILTER'
END
IF rc = 5 THEN DO
SAY 'Kann MailFilter nicht starten!'
'Delete T:Headerfilter-rexx.temp'
EXIT(10)
END
END
/* Aktuellen ZPoint-Screen einstellen */
ADDRESS MAILFILTER
GETATTR screen
IF result ~= screenname THEN DO
DEACTIVATE
SETATTR screen screenname
END
/* Einen Header aus der Mail auswählen */
SELECTHEADER 'T:Headerfilter-rexx.temp'
IF rc ~= 0 THEN DO
ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
EXIT(0)
END
/* Header in den Headerfilter übernehmen und das Fenster
auf dem aktuellen ZodiacsPoint-Screen öffnen */
headerzeile.pattern = result
headerzeile.emppattern = ''
headerzeile.newsgroup = ''
headerzeile.mailtype = ''
headerzeile.action = ''
ADDITEM TO header STEM headerzeile CONVERT POPUP
/* Prefs speichern */
IF rc = 0 THEN
SAVE
/* TempDatei löschen */
ADDRESS COMMAND 'Delete T:Headerfilter-rexx.temp QUIET'
/* Beenden */
EXIT(0)